home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / len.z / len
Encoding:
Text File  |  2002-10-03  |  1.5 KB  |  46 lines

  1. LEN(3I)                                               Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      LLEENN - Determines the length of a character string
  6.  
  7. SSYYNNOOPPSSIISS
  8.      LLEENN (([SSTTRRIINNGG==]_s_t_r_i_n_g))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, IRIX systems
  12.  
  13.      CF90, MIPSpro 7 Fortran 90, MIPSpro Fortran 77
  14.  
  15. SSTTAANNDDAARRDDSS
  16.      Fortran
  17.  
  18. DDEESSCCRRIIPPTTIIOONN
  19.      The LLEENN intrinsic function takes Fortran character string arguments
  20.      and returns an integer length.  This function accepts the following
  21.      argument:
  22.  
  23.      _s_t_r_i_n_g    Must be of type character.  It can be scalar or array
  24.                valued.
  25.  
  26.      LLEENN is an inquiry function.  The name of this intrinsic can be passed
  27.      as an argument.
  28.  
  29. RREETTUURRNN VVAALLUUEESS
  30.      The result type, type parameter, and shape are default integer scalar.
  31.      The result has a value equal to the number of characters in _s_t_r_i_n_g if
  32.      it is a scalar or in an element of _s_t_r_i_n_g if it is array valued.
  33.  
  34. EEXXAAMMPPLLEESS
  35.      The following program returns the length of the character string II==3377:
  36.  
  37.           PROGRAM LENTEST
  38.           I=LEN('|...+....1....+....2....+....3....+..')
  39.           PRINT *,I
  40.           STOP
  41.           END
  42.  
  43. SSEEEE AALLSSOO
  44.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  45.      man page.
  46.